home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
akcl
/
kcl.lha
/
cmpnew
/
cmplabel.data
< prev
next >
Wrap
Text File
|
1986-07-03
|
2KB
|
73 lines
#(
#!
(lisp::in-package 'user::compiler)
0
compiler::*last-label*
compiler::*exit*
compiler::*unwind-exit*
(lisp::cons (lisp::incf compiler::*last-label*) lisp::nil)
(lisp::cons (lisp::incf compiler::*last-label*) lisp::t)
lisp::when
lisp::cdr
compiler::wt-nl1
"T"
lisp::car
":;"
lisp::progn
lisp::rplacd
compiler::wt
"goto T"
";"
compiler::*compiler-output1*
compiler::*vs*
compiler::fun-val
compiler::*value-to-go*
lisp::return
compiler::top
compiler::jump-true
compiler::jump-false
compiler::var
(lisp::special compiler::global)
(compiler::simple-call lisp::inline compiler::inline-cond compiler::inline-fixnum compiler::inline-character compiler::inline-long-float compiler::inline-short-float)
compiler::vs
compiler::bds-bind
1
compiler::frame
(compiler::simple-call lisp::inline compiler::inline-cond compiler::inline-fixnum compiler::inline-character compiler::inline-long-float compiler::inline-short-float)
compiler::tail-recursion-mark
compiler::jump
compiler::return-fixnum
compiler::*next-cvar*
compiler::*reservation-cmacro*
compiler::return-character
compiler::return-long-float
compiler::return-short-float
compiler::return-object
(lisp::return compiler::return-object compiler::return-fixnum compiler::return-character compiler::return-long-float compiler::return-short-float)
compiler::next-label
compiler::next-label*
compiler::wt-label
compiler::wt-go
compiler::unwind-bds
compiler::unwind-exit
compiler::unwind-no-exit
compiler::tail-recursion-possible
compiler::wt1
compiler::reset-top
compiler::set-jump-true
compiler::set-jump-false
compiler::baboon
compiler::set-loc
compiler::vs-push
compiler::fixnum-loc-p
compiler::wt-fixnum-loc
compiler::wt-vs
compiler::character-loc-p
compiler::wt-character-loc
compiler::long-float-loc-p
compiler::wt-long-float-loc
compiler::short-float-loc-p
compiler::wt-short-float-loc
)